home *** CD-ROM | disk | FTP | other *** search
/ Disc to the Future 2 / Disc to the Future Part II Programmer's Reference (Wayzata Technology)(6013)(1992).bin / MAC / THINKC / 4_0 / LIFER__ / PROTO / P / PUTILS_L.C < prev    next >
Text File  |  1991-07-23  |  8KB  |  205 lines
  1. /*  PUtils_Life                                                              Utilities
  2.  
  3. File name:  PUtils_Life.C  
  4. Function:  Utilities for the Prototyper specific code.
  5. History: 7/23/91 Original by Prototyper 3.0   */
  6.  
  7.  
  8.  
  9. #include "PCommonLife.h"    /* Common */
  10. #include "Common_Life.h"    /* Common */
  11. #include "PUtils_Life.h"    /* This file */
  12.  
  13. /* ======================================================= */
  14.  
  15. /* Routine: TrapAvailable */
  16. /* Purpose: See if trap is available, non-available traps all have a unique address */
  17.  
  18. Boolean TrapAvailable (trapNumber,tType)                             /* See if a trap is available */
  19. short    trapNumber;
  20. short    tType;
  21. {
  22.         #define UnimplementedTrapNumber     0xA89F                  /* Unimplemented trap number */
  23.         Boolean    theResult;
  24.  
  25.         theResult = (NGetTrapAddress(trapNumber, tType) != GetTrapAddress(UnimplementedTrapNumber));/* Check the two traps */
  26.         return(theResult);
  27. }
  28.  
  29.  
  30. /* ======================================================= */
  31.  
  32. /* Routine: GetUserEvent */
  33. /* Purpose: See if any user events are available */
  34.  
  35. void GetUserEvent(UserEventPRec TheUserEvent)
  36. { 
  37.         UserEventHRec    NextUserEvent;                                  /* The next user event */
  38.  
  39.         TheUserEvent->ID = UserEvent_None;                             /* Set ID to no events are available */
  40.         if (UserEventList != NIL)                                             /* Get first entry in the list */
  41.             {
  42.                 HLock((Handle)UserEventList);                               /* Lock for safety */
  43.                 TheUserEvent->ID = (*UserEventList)->ID;                 /* The event ID */
  44.                 TheUserEvent->ID2 = (*UserEventList)->ID2;             /* The optional ID */
  45.                 TheUserEvent->Data1 = (*UserEventList)->Data1;/* The optional data */
  46.                 TheUserEvent->Data2 = (*UserEventList)->Data2;/* The optional data */
  47.                 TheUserEvent->theHandle = (*UserEventList)->theHandle;/* The optional handle */
  48.                 NextUserEvent = (*UserEventList)->Next;                 /* The next list */
  49.  
  50.                 DisposHandle((Handle)UserEventList);                       /* Remove this list item */
  51.                 UserEventList = NextUserEvent;                             /* Make the next item the new first item */
  52.             }
  53. }
  54.  
  55.  
  56. /* ======================================================= */
  57.  
  58. /* Routine: Add_UserEvent */
  59. /* Purpose: Add a user event */
  60.  
  61. void Add_UserEvent( ID,  ID2, Data1, Data2,  theHandle)
  62. short        ID;
  63. short        ID2;
  64. long        Data1;
  65. long        Data2;
  66. Handle    theHandle;
  67. { 
  68.         UserEventHRec    NewUserEvent;                                   /* The new user event */
  69.         UserEventHRec    theUserEvent;                                    /* The user event */
  70.  
  71.         NewUserEvent = (UserEventHRec)NewHandle(sizeof(UserEventRec));/* Allocate a record */
  72.         if (NewUserEvent != NIL)                                             /* Only do if we got the new record */
  73.             {
  74.                 HLock((Handle)NewUserEvent);                               /* Lock for safety */
  75.                 (*NewUserEvent)->ID = ID;                                   /* The event ID */
  76.                 (*NewUserEvent)->ID2 = ID2;                                /* The optional ID */
  77.                 (*NewUserEvent)->Data1 = Data1;                          /* The optional data */
  78.                 (*NewUserEvent)->Data2 = Data2;                          /* The optional data */
  79.                 (*NewUserEvent)->theHandle = theHandle;                 /* The optional handle */
  80.                 (*NewUserEvent)->Next = NIL;                              /* No next item after this one */
  81.  
  82.                 if (UserEventList == NIL)                                      /* See if anyone is in the list yet */
  83.                     UserEventList = NewUserEvent;                          /* Make this one the first in the list */
  84.                 else                                                               /* Not the first in the list */
  85.                     {
  86.                         theUserEvent = UserEventList;                         /* Get the first one */
  87.                         while ((*theUserEvent)->Next != NIL)                 /* Get the next one */
  88.                         {
  89.                                 theUserEvent = (*theUserEvent)->Next;
  90.                         }
  91.                         (*theUserEvent)->Next = NewUserEvent;            /* Tack on to the end */
  92.                     }
  93.             }
  94. }
  95.  
  96. /* ======================================================= */
  97.  
  98.  
  99. /* This is a routine used to get a string from a TE area, limited to 250 characters */
  100. void Get_TE_String( theTEArea, theString)
  101. TEHandle        theTEArea;
  102. Str255    *theString;
  103. { 
  104.         short Index;                                                            /* Use to loop thru the characters */
  105.         short TitleLength;                                                     /* Number of characters to do */
  106.         CharsHandle theCharsHandle;                                        /* Used to get global edit text */
  107.         Ptr theStringPtr;                                                     /* Pointer to the string, byte level */
  108.  
  109.         theCharsHandle = TEGetText(theTEArea);                         /* Get the character handle */
  110.         HLock((Handle)theCharsHandle);                                    /* Lock it for safety */
  111.         TitleLength = (*theTEArea)->teLength;                            /* Get the number of characters */
  112.          *theString[0] = 0;                                                   /* Start with an empty string */
  113.         if (TitleLength > 0) 
  114.             {
  115.                 theStringPtr = (Ptr)((long)theString + (long)1);          /* Start of the string data */
  116.                 if (TitleLength > 250) 
  117.                     TitleLength = 250;
  118.                 for (Index = 0; Index < TitleLength; Index++)
  119.                     *theStringPtr++ = (char)(*theCharsHandle)[Index];
  120.                 *theString[0] = TitleLength;
  121.             }
  122. }
  123.  
  124. /* ======================================================= */
  125.  
  126.  
  127. /* This is a routine used to create a TE area */
  128. void Make_TE_Area(theTEArea, Position, theFontSize, theFont, DefaultStringID)
  129. TEHandle        *theTEArea;
  130. Rect    *Position;
  131. short        theFontSize;
  132. short        theFont;
  133. short        DefaultStringID;
  134. {
  135.         FontInfo    ThisFontInfo;                                              /* Use to get the font data */
  136.  
  137.         TextSize(theFontSize);                                               /* Set the size */
  138.         TextFont(theFont);                                                    /* Set the font */
  139.         GetFontInfo(&ThisFontInfo);                                         /* Get Ascent height for positioning */
  140.         TextSize(12);                                                         /* Restore the size */
  141.         TextFont(applFont);                                                   /* Restore the font */
  142.  
  143.         tempRect = *Position;                                                /* Get the rect */
  144.         FrameRect(&tempRect);                                             /* Frame this TE area */
  145.         InsetRect(&tempRect, 3, 3);                                        /* Indent for TE inside of box */
  146.          *theTEArea = TENew(&tempRect, &tempRect);                 /* Create the TE area */
  147.         if (theInput != NIL)                                                     /* See if there is already a TE area */
  148.             TEDeactivate(theInput);                                           /* Yes, so turn it off */
  149.         theInput = *theTEArea;                                              /* Activate the TE area */
  150.         HLock((Handle)*theTEArea);                                        /* Lock the handle before using it */
  151.         (**theTEArea)->txFont = theFont;                                 /* Font to use for the TE area */
  152.         (**theTEArea)->fontAscent = ThisFontInfo.ascent;             /* Font ascent */
  153.         (**theTEArea)->lineHeight = ThisFontInfo.ascent + ThisFontInfo.descent + ThisFontInfo.leading;/* Font ascent + descent + leading */
  154.         HUnlock((Handle)*theTEArea);                                     /* UnLock the handle when done */
  155.         GetIndString(sTemp, DefaultStringID, 1);                         /* Get the default string */
  156.         TESetText(&sTemp[1], sTemp[0], theInput);                     /* Place default text in the TE area */
  157.         TEActivate(theInput);                                                 /* Make the TE area active */
  158. }
  159.  
  160. /* ======================================================= */
  161.  
  162.  
  163. /* Setup a dialog or alert item */ 
  164. void SetupTheItem( theDialog, ItemID, SizeIt, ShowIt,EnableIt,SetTheMax,thePosition, ExtraData, StringID)
  165. DialogPtr    theDialog;
  166. short        ItemID;
  167. Boolean        SizeIt;
  168. Boolean        ShowIt;
  169. Boolean        EnableIt;
  170. Boolean        SetTheMax;
  171. Rect        *thePosition;
  172. long        ExtraData;
  173. short        StringID;
  174. {
  175.         Rect        tempRect;                                                  /* Temporary rectangle */
  176.         short    DType;                                                         /* Type of dialog item */
  177.         Handle    DItem;                                                        /* Handle to the dialog item */
  178.         ControlHandle    CItem;                                               /* Control handle */
  179.  
  180.         GetDItem(theDialog,ItemID,&DType,&DItem,&tempRect);/* Get the item handle and size */
  181.         CItem = (ControlHandle)DItem;                                     /* Change to control handle */
  182.         if (SizeIt)                                                               /* Have to resize all CDEF connected controls */
  183.             SizeControl(CItem, tempRect.right-tempRect.left, tempRect.bottom-tempRect.top);/* Size it */
  184.         *thePosition = tempRect;                                            /* Pass back the zone location and size */
  185.         if (ExtraData != NIL)                                                  /* See if extra data for a CDEF */
  186.             (*CItem)->contrlData = (Handle)ExtraData;                   /* Send it */
  187.         if (StringID != 0)                                                      /* See if a CDEF and needs the title set again*/
  188.             {
  189.                 GetIndString(sTemp,StringID,1);                             /* Get the string */
  190.                 SetCTitle(CItem,sTemp);                                      /* Set the string */
  191.             }
  192.         if (EnableIt)                                                             /* See if enable or disable the zone */
  193.             HiliteControl (CItem,0);                                          /* Enable the zone */
  194.         else
  195.             HiliteControl (CItem,255);                                       /* Dim the zone */
  196.         if (SetTheMax)
  197.             SetCtlMax(CItem,12345);                                        /* Set the flag to the CDEF */
  198.         if (ShowIt)
  199.             ShowControl(CItem);                                              /* Show it to activate it */
  200.  
  201. }
  202.  
  203. /* ======================================================= */
  204.  
  205.